Những câu hỏi liên quan
19 Huỳnh Lê hoàng 8a7
Xem chi tiết
Liên Nguyễn Thị
Xem chi tiết
HAT9
18 tháng 12 2022 lúc 21:40

Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Bình luận (0)
HAT9
18 tháng 12 2022 lúc 21:41

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

Bình luận (0)
Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 8:25

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Bình luận (1)
My Nguyen
Xem chi tiết
Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Nguyen Thai
Xem chi tiết
Anh Phạm
11 tháng 10 2021 lúc 11:18

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

 


 

Bình luận (0)
Anh Phạm
11 tháng 10 2021 lúc 11:18

cái đề của bạn nó rất là khặp khiển đấy

 

Bình luận (1)
Nguyễn Lê Phước Thịnh
11 tháng 10 2021 lúc 23:32

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long a,c,tam,x,y;

cin>>x>>y;

a=x;

c=y;

cout<<"a truoc khi doi la:"<<a<<endl;

cout<<"c truoc khi doi la:"<<c<<endl;

tam=a;

a=c;

c=tam;

cout<<"a sau khi doi la:"<<a<<endl;

cout<<"c sau khi doi la:"<<c<<endl;

return 0;

}

Bình luận (0)
Miziki Mon
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 10 2021 lúc 0:44

#include <bits/stdc++.h>

using namespace std;

long long x,y,tam;

int main()

{

cin>>x>>y;

cout<<"x truoc khi doi la:"<<x<<endl;

cout<<"y truoc khi doi la:"<<y<<endl;

tam=x;

x=y;

y=tam;

cout<<"x sau khi doi la:"<<x<<endl;

cout<<"y sau khi doi la:"<<y;

return 0;

}

Bình luận (0)
Ánh sao
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:15

Câu 1: 

uses crt;

var a:array[1..5]of integer;

max,i:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 5 do 

  if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 20:16

Câu 2: 

uses crt;

var a:array[1..6]of integer;

min,i:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to 6 do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Bình luận (0)
Minh Lệ
Xem chi tiết
Quoc Tran Anh Le
18 tháng 11 2023 lúc 17:08

Bình luận (0)